home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / comm / tlxinstl.zip / MAKELOGO.ASM < prev    next >
Assembly Source File  |  1991-10-17  |  2KB  |  110 lines
  1.  
  2. PAGE    58,    132
  3. TITLE    MAKELOGO
  4. SUBTTL MAKELOGO
  5.  
  6. .model small
  7.  
  8. EXTRN    BORDER:FAR
  9. EXTRN    GETKEY:FAR
  10.  
  11. EXTRN text_color:byte
  12. EXTRN back_color:byte
  13. EXTRN hi_light_color:byte
  14. EXTRN reverse_color:byte
  15. EXTRN border_color:byte
  16. EXTRN COL:word
  17. EXTRN COL_HOLD:word
  18. EXTRN ROW:byte
  19. EXTRN boxtl:word
  20. EXTRN boxtr:word
  21. EXTRN boxbl:word
  22. EXTRN boxbr:word
  23. EXTRN colcnt:word
  24. EXTRN cursor_location:word
  25. EXTRN field_start:word
  26. EXTRN field_stop:word
  27. EXTRN inv_screen_attr:byte
  28. EXTRN linecnt:word
  29. EXTRN screen_attr:byte
  30. EXTRN screen_title:byte
  31. EXTRN copyright:byte
  32. EXTRN anykey:byte
  33. EXTRN address1:byte
  34. EXTRN address2:byte
  35. EXTRN phone:byte
  36. EXTRN crlf:byte
  37. EXTRN version:byte
  38. EXTRN stat_port:word
  39. EXTRN video_address:word
  40.  
  41. IF1
  42. INCLUDE     ASSEMBLY.MAC
  43. ENDIF
  44.  
  45. PAGE
  46. MAKELOGOS    SEGMENT PUBLIC    'CODE'
  47.  
  48. SUBTTL MAKELOGO
  49. MAKELOGO PROC     FAR
  50.     ASSUME    CS:MAKELOGOS
  51.     PUBLIC    MAKELOGO
  52.  
  53. LOGO:
  54.  
  55.     mov    al,text_color
  56.     mov    screen_attr,al
  57.  
  58.     calc_addr  3,28
  59.     mov   si,offset screen_title
  60.     mov   cx,19
  61.     w_f_scr             ;write field to screen
  62.  
  63.     mov    al,border_color
  64.     mov    screen_attr,al
  65.  
  66.     MAKEBOX  6,12,17,66    ;startline,startcol,stopline,stopcol
  67.  
  68.     mov    al,text_color
  69.     mov    screen_attr,al
  70.  
  71.     calc_addr  9,24
  72.     mov   si,offset copyright
  73.     mov   cx,32
  74.     w_f_scr             ;write field to screen
  75.  
  76.     calc_addr  11,24
  77.     mov   si,offset address1
  78.     mov   cx,16
  79.     w_f_scr             ;write field to screen
  80.  
  81.     calc_addr  12,24
  82.     mov   si,offset address2
  83.     mov   cx,20
  84.     w_f_scr             ;write field to screen
  85.  
  86.     calc_addr  13,24
  87.     mov   si,offset phone
  88.     mov   cx,14
  89.     w_f_scr             ;write field to screen
  90.  
  91.     calc_addr  14,24
  92.     mov   si,offset version
  93.     mov   cx,14
  94.     w_f_scr             ;write field to screen
  95.  
  96.     calc_addr 23,24
  97.     mov   si,offset anykey
  98.     mov   cx,24
  99.     w_f_scr
  100.  
  101.     calc_addr 23,47
  102.     cursor
  103.     CALL    GETKEY        ;READ CHARACTER FROM KEYBOARD
  104.  
  105.         RET
  106.  
  107. MAKELOGO    ENDP
  108. MAKELOGOS    ENDS
  109.         END    MAKELOGO
  110.